home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / animals.dir / 00062_EN 1972-75.pct.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.2 KB  |  38 lines
  1. on mouseDown
  2.   global theArticle, whHead
  3.   set mv to the mouseV
  4.   set mh to the mouseH
  5.   put "36,139,340,179" into line 1 of bgArray
  6.   put "103,207,341,233" into line 2 of bgArray
  7.   put "201,239,479,268" into line 3 of bgArray
  8.   put "279,181,591,205" into line 4 of bgArray
  9.   set whHead to 0
  10.   repeat with n = 1 to 4
  11.     if (mh > item 1 of line n of bgArray) and (mh < item 3 of line n of bgArray) then
  12.       if (mv > item 2 of line n of bgArray) and (mv < item 4 of line n of bgArray) then
  13.         set whHead to n
  14.         spriteBox(43, value(item 1 of line whHead of bgArray), value(item 2 of line whHead of bgArray), value(item 3 of line whHead of bgArray), value(item 4 of line whHead of bgArray))
  15.         updateStage()
  16.       end if
  17.     end if
  18.   end repeat
  19.   clearLists()
  20.   if whHead = 1 then
  21.     set theArticle to "EN060601.asc>JapanΓÇÖs whale politics>0"
  22.     winArticle()
  23.   end if
  24.   if whHead = 2 then
  25.     set theArticle to "EN050102.asc>It pays to make a pig smile>0"
  26.     winArticle()
  27.   end if
  28.   if whHead = 3 then
  29.     set theArticle to "EN090301.asc>From conquest to conservation>0"
  30.     winArticle()
  31.   end if
  32.   if whHead = 4 then
  33.     set theArticle to "EN030302.asc>Time to do more for the salmon>0"
  34.     winArticle()
  35.   end if
  36.   setOffStage("43")
  37. end
  38.